/ MacFormat España 22 / macformat_22.iso / Shareware / Programación / chipmunk-basic-350 / chipmunk-basic-3.5.0 ƒ.sit / chipmunk-basic-3.5.0 ƒ / boxes.bas

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 62 6f 78 65 73 2e | 62 61 73 00 00 00 00 00 |..boxes.|bas.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 63 42 61 | 53 01 00 00 00 00 00 00 |.TEXTcBa|S.......|
|00000050| 00 00 00 00 00 07 69 00 | 00 01 1e ae 1f f6 fb ae |......i.|........|
|00000060| 1f f6 fb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a9 98 00 00 |........|........|
|00000080| 31 30 30 20 72 65 6d 20 | 2a 2a 20 41 20 44 65 6d |100 rem |** A Dem|
|00000090| 6f 20 6f 66 20 33 20 73 | 70 72 69 74 65 73 20 62 |o of 3 s|prites b|
|000000a0| 6f 75 6e 63 69 6e 67 20 | 61 72 6f 75 6e 64 20 6f |ouncing |around o|
|000000b0| 76 65 72 20 61 20 63 68 | 61 6e 67 69 6e 67 20 62 |ver a ch|anging b|
|000000c0| 61 63 6b 67 72 6f 75 6e | 64 20 2a 2a 0d 31 31 30 |ackgroun|d **.110|
|000000d0| 20 72 65 6d 0d 31 32 30 | 20 64 69 6d 20 78 28 31 | rem.120| dim x(1|
|000000e0| 30 29 2c 79 28 31 30 29 | 2c 64 78 28 31 30 29 2c |0),y(10)|,dx(10),|
|000000f0| 64 79 28 31 30 29 0d 31 | 35 30 20 67 6f 73 75 62 |dy(10).1|50 gosub|
|00000100| 20 33 34 30 0d 31 35 35 | 20 70 72 69 6e 74 20 22 | 340.155| print "|
|00000110| 20 62 6f 78 65 73 20 61 | 6e 64 20 73 70 72 69 74 | boxes a|nd sprit|
|00000120| 65 73 20 22 3b 74 69 6d | 65 24 0d 31 36 30 20 66 |es ";tim|e$.160 f|
|00000130| 6f 72 20 69 32 20 3d 20 | 31 20 74 6f 20 36 30 30 |or i2 = |1 to 600|
|00000140| 30 30 30 0d 31 37 30 20 | 78 31 20 3d 20 78 28 34 |000.170 |x1 = x(4|
|00000150| 29 2b 72 6e 64 28 33 32 | 30 29 0d 31 38 30 20 78 |)+rnd(32|0).180 x|
|00000160| 32 20 3d 20 78 28 34 29 | 2b 72 6e 64 28 33 32 30 |2 = x(4)|+rnd(320|
|00000170| 29 0d 31 39 30 20 69 66 | 20 28 78 31 20 3e 20 78 |).190 if| (x1 > x|
|00000180| 32 29 20 74 68 65 6e 20 | 31 37 30 0d 32 30 30 20 |2) then |170.200 |
|00000190| 79 31 20 3d 20 79 28 34 | 29 2b 72 6e 64 28 32 34 |y1 = y(4|)+rnd(24|
|000001a0| 30 29 0d 32 31 30 20 79 | 32 20 3d 20 79 28 34 29 |0).210 y|2 = y(4)|
|000001b0| 2b 72 6e 64 28 32 34 30 | 29 0d 32 32 30 20 69 66 |+rnd(240|).220 if|
|000001c0| 20 28 79 31 20 3e 20 79 | 32 29 20 74 68 65 6e 20 | (y1 > y|2) then |
|000001d0| 32 30 30 0d 32 33 30 20 | 6d 20 3d 20 72 6e 64 28 |200.230 |m = rnd(|
|000001e0| 33 32 29 0d 32 34 30 20 | 6a 20 3d 20 72 6e 64 28 |32).240 |j = rnd(|
|000001f0| 31 30 30 29 20 3a 20 6a | 32 20 3d 20 72 6e 64 28 |100) : j|2 = rnd(|
|00000200| 31 30 30 29 20 3a 20 6a | 33 20 3d 20 72 6e 64 28 |100) : j|3 = rnd(|
|00000210| 31 30 30 29 0d 32 35 30 | 20 67 72 61 70 68 69 63 |100).250| graphic|
|00000220| 73 20 63 6f 6c 6f 72 20 | 6a 2c 6a 32 2c 6a 33 0d |s color |j,j2,j3.|
|00000230| 32 36 30 20 69 66 20 72 | 6e 64 28 31 30 29 20 3e |260 if r|nd(10) >|
|00000240| 20 36 20 74 68 65 6e 20 | 67 6f 74 6f 20 32 39 30 | 6 then |goto 290|
|00000250| 0d 32 37 30 20 67 72 61 | 70 68 69 63 73 20 66 69 |.270 gra|phics fi|
|00000260| 6c 6c 72 65 63 74 20 78 | 31 2c 79 31 2c 78 32 2c |llrect x|1,y1,x2,|
|00000270| 79 32 2c 6d 20 3a 20 67 | 72 61 70 68 69 63 73 20 |y2,m : g|raphics |
|00000280| 72 65 63 74 20 78 31 2c | 79 31 2c 78 32 2c 79 32 |rect x1,|y1,x2,y2|
|00000290| 0d 32 38 30 20 67 6f 74 | 6f 20 33 30 30 0d 32 39 |.280 got|o 300.29|
|000002a0| 30 20 67 72 61 70 68 69 | 63 73 20 66 69 6c 6c 6f |0 graphi|cs fillo|
|000002b0| 76 61 6c 20 78 31 2c 79 | 31 2c 78 32 2c 79 32 2c |val x1,y|1,x2,y2,|
|000002c0| 6d 20 3a 20 67 72 61 70 | 68 69 63 73 20 6f 76 61 |m : grap|hics ova|
|000002d0| 6c 20 78 31 2c 79 31 2c | 78 32 2c 79 32 0d 33 30 |l x1,y1,|x2,y2.30|
|000002e0| 30 20 69 66 20 69 32 20 | 61 6e 64 20 31 20 74 68 |0 if i2 |and 1 th|
|000002f0| 65 6e 20 67 6f 73 75 62 | 20 34 35 30 0d 33 31 30 |en gosub| 450.310|
|00000300| 20 67 72 61 70 68 69 63 | 73 28 30 29 20 3a 20 72 | graphic|s(0) : r|
|00000310| 65 6d 20 2a 2a 2a 20 77 | 61 69 74 20 66 6f 72 20 |em *** w|ait for |
|00000320| 72 65 66 72 65 73 68 20 | 2a 2a 2a 0d 33 32 30 20 |refresh |***.320 |
|00000330| 6e 65 78 74 20 69 32 0d | 33 33 30 20 65 6e 64 0d |next i2.|330 end.|
|00000340| 33 34 30 20 72 65 6d 20 | 2a 2a 2a 20 64 69 73 70 |340 rem |*** disp|
|00000350| 6c 61 79 20 61 6e 20 69 | 6e 69 74 69 61 6c 20 62 |lay an i|nitial b|
|00000360| 61 63 6b 67 72 6f 75 6e | 64 20 2a 2a 2a 0d 33 35 |ackgroun|d ***.35|
|00000370| 30 20 63 6c 73 0d 33 36 | 30 20 67 72 61 70 68 69 |0 cls.36|0 graphi|
|00000380| 63 73 20 30 0d 33 37 30 | 20 66 6f 72 20 69 20 3d |cs 0.370| for i =|
|00000390| 20 31 20 74 6f 20 32 30 | 0d 33 38 30 20 6d 6f 76 | 1 to 20|.380 mov|
|000003a0| 65 74 6f 20 31 30 2c 31 | 30 2a 69 20 3a 20 6c 69 |eto 10,1|0*i : li|
|000003b0| 6e 65 74 6f 20 32 30 30 | 2c 31 30 2a 69 0d 33 39 |neto 200|,10*i.39|
|000003c0| 30 20 6d 6f 76 65 74 6f | 20 31 30 2a 69 2c 31 30 |0 moveto| 10*i,10|
|000003d0| 20 3a 20 6c 69 6e 65 74 | 6f 20 31 30 2a 69 2c 32 | : linet|o 10*i,2|
|000003e0| 30 30 0d 34 30 30 20 6e | 65 78 74 20 69 0d 34 31 |00.400 n|ext i.41|
|000003f0| 30 20 74 20 3d 20 74 69 | 6d 65 72 0d 34 32 30 20 |0 t = ti|mer.420 |
|00000400| 6d 6f 76 65 74 6f 20 32 | 31 30 2c 31 30 30 20 3a |moveto 2|10,100 :|
|00000410| 20 67 72 61 70 68 69 63 | 73 20 64 72 61 77 74 65 | graphic|s drawte|
|00000420| 78 74 20 22 44 65 6d 6f | 22 0d 34 33 30 20 66 6f |xt "Demo|".430 fo|
|00000430| 72 20 69 20 3d 20 31 20 | 74 6f 20 31 30 20 3a 20 |r i = 1 |to 10 : |
|00000440| 78 28 69 29 20 3d 20 31 | 30 30 2b 69 20 3a 20 79 |x(i) = 1|00+i : y|
|00000450| 28 69 29 20 3d 20 31 30 | 30 2d 69 20 3a 20 6e 65 |(i) = 10|0-i : ne|
|00000460| 78 74 20 69 0d 34 34 30 | 20 72 65 74 75 72 6e 0d |xt i.440| return.|
|00000470| 34 35 30 20 72 65 6d 20 | 2a 2a 2a 20 44 69 73 70 |450 rem |*** Disp|
|00000480| 6c 61 79 20 61 6e 64 20 | 4d 6f 76 65 20 53 70 72 |lay and |Move Spr|
|00000490| 69 74 65 73 20 2a 2a 2a | 0d 34 36 30 20 73 70 72 |ites ***|.460 spr|
|000004a0| 69 74 65 20 31 20 78 28 | 31 29 2c 79 28 31 29 2c |ite 1 x(|1),y(1),|
|000004b0| 31 33 31 0d 34 37 30 20 | 73 70 72 69 74 65 20 32 |131.470 |sprite 2|
|000004c0| 20 78 28 32 29 2c 79 28 | 32 29 2c 31 32 38 0d 34 | x(2),y(|2),128.4|
|000004d0| 38 30 20 73 70 72 69 74 | 65 20 33 20 78 28 33 29 |80 sprit|e 3 x(3)|
|000004e0| 2c 79 28 33 29 2c 31 32 | 39 0d 34 38 35 20 67 72 |,y(3),12|9.485 gr|
|000004f0| 61 70 68 69 63 73 20 77 | 69 6e 64 6f 77 20 2d 31 |aphics w|indow -1|
|00000500| 2c 2d 31 2c 78 28 34 29 | 2c 79 28 34 29 2c 32 0d |,-1,x(4)|,y(4),2.|
|00000510| 34 39 30 20 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |490 for |i = 1 to|
|00000520| 20 34 0d 35 30 30 20 64 | 78 28 69 29 20 3d 20 64 | 4.500 d|x(i) = d|
|00000530| 78 28 69 29 2d 31 2b 72 | 6e 64 28 33 29 0d 35 31 |x(i)-1+r|nd(3).51|
|00000540| 30 20 69 66 20 61 62 73 | 28 64 78 28 69 29 29 20 |0 if abs|(dx(i)) |
|00000550| 3e 20 31 30 20 74 68 65 | 6e 20 64 78 28 69 29 20 |> 10 the|n dx(i) |
|00000560| 3d 20 64 78 28 69 29 2f | 32 0d 35 32 30 20 78 28 |= dx(i)/|2.520 x(|
|00000570| 69 29 20 3d 20 78 28 69 | 29 2b 64 78 28 69 29 0d |i) = x(i|)+dx(i).|
|00000580| 35 33 30 20 69 66 20 78 | 28 69 29 20 3e 20 33 31 |530 if x|(i) > 31|
|00000590| 30 20 6f 72 20 78 28 69 | 29 20 3c 20 38 0d 35 33 |0 or x(i|) < 8.53|
|000005a0| 32 20 20 20 64 78 28 69 | 29 20 3d 20 73 67 6e 28 |2   dx(i|) = sgn(|
|000005b0| 31 30 30 2d 78 28 69 29 | 29 2a 61 62 73 28 64 78 |100-x(i)|)*abs(dx|
|000005c0| 28 69 29 29 20 3a 20 78 | 28 69 29 20 3d 20 78 28 |(i)) : x|(i) = x(|
|000005d0| 69 29 2b 32 2a 64 78 28 | 69 29 0d 35 33 34 20 20 |i)+2*dx(|i).534  |
|000005e0| 20 69 66 20 69 20 3c 20 | 34 20 74 68 65 6e 20 73 | if i < |4 then s|
|000005f0| 6f 75 6e 64 20 34 30 30 | 2c 30 2e 30 35 2c 34 30 |ound 400|,0.05,40|
|00000600| 0d 35 33 36 20 65 6e 64 | 69 66 0d 35 34 30 20 64 |.536 end|if.540 d|
|00000610| 79 28 69 29 20 3d 20 64 | 79 28 69 29 2d 31 2b 72 |y(i) = d|y(i)-1+r|
|00000620| 6e 64 28 33 29 0d 35 35 | 30 20 69 66 20 61 62 73 |nd(3).55|0 if abs|
|00000630| 28 64 79 28 69 29 29 20 | 3e 20 31 30 20 74 68 65 |(dy(i)) |> 10 the|
|00000640| 6e 20 64 79 28 69 29 20 | 3d 20 64 79 28 69 29 2f |n dy(i) |= dy(i)/|
|00000650| 32 0d 35 36 30 20 79 28 | 69 29 20 3d 20 79 28 69 |2.560 y(|i) = y(i|
|00000660| 29 2b 64 79 28 69 29 0d | 35 37 30 20 69 66 20 79 |)+dy(i).|570 if y|
|00000670| 28 69 29 20 3e 20 32 32 | 30 20 6f 72 20 79 28 69 |(i) > 22|0 or y(i|
|00000680| 29 20 3c 20 38 0d 35 37 | 32 20 20 20 64 79 28 69 |) < 8.57|2   dy(i|
|00000690| 29 20 3d 20 73 67 6e 28 | 31 30 30 2d 79 28 69 29 |) = sgn(|100-y(i)|
|000006a0| 29 2a 61 62 73 28 64 79 | 28 69 29 29 20 3a 20 79 |)*abs(dy|(i)) : y|
|000006b0| 28 69 29 20 3d 20 79 28 | 69 29 2b 32 2a 64 79 28 |(i) = y(|i)+2*dy(|
|000006c0| 69 29 0d 35 37 34 20 20 | 20 69 66 20 69 20 3c 20 |i).574  | if i < |
|000006d0| 34 20 74 68 65 6e 20 73 | 6f 75 6e 64 20 34 30 30 |4 then s|ound 400|
|000006e0| 2c 30 2e 30 35 2c 34 30 | 0d 35 37 36 20 65 6e 64 |,0.05,40|.576 end|
|000006f0| 69 66 0d 35 38 30 20 6e | 65 78 74 20 69 0d 35 38 |if.580 n|ext i.58|
|00000700| 32 20 69 66 20 78 28 34 | 29 20 3e 20 67 72 61 70 |2 if x(4|) > grap|
|00000710| 68 69 63 73 28 2d 33 38 | 29 2d 33 32 30 20 74 68 |hics(-38|)-320 th|
|00000720| 65 6e 20 78 28 34 29 20 | 3d 20 67 72 61 70 68 69 |en x(4) |= graphi|
|00000730| 63 73 28 2d 33 38 29 2d | 33 32 32 0d 35 38 34 20 |cs(-38)-|322.584 |
|00000740| 69 66 20 79 28 34 29 20 | 3e 20 67 72 61 70 68 69 |if y(4) |> graphi|
|00000750| 63 73 28 2d 33 39 29 2d | 32 34 30 20 74 68 65 6e |cs(-39)-|240 then|
|00000760| 20 79 28 34 29 20 3d 20 | 67 72 61 70 68 69 63 73 | y(4) = |graphics|
|00000770| 28 2d 33 39 29 2d 32 34 | 32 0d 35 39 30 20 6e 20 |(-39)-24|2.590 n |
|00000780| 3d 20 6e 2b 31 0d 36 30 | 30 20 69 66 20 74 69 6d |= n+1.60|0 if tim|
|00000790| 65 72 2d 74 20 3e 20 31 | 30 20 74 68 65 6e 20 70 |er-t > 1|0 then p|
|000007a0| 72 69 6e 74 20 28 6e 2d | 6e 30 29 2f 28 74 69 6d |rint (n-|n0)/(tim|
|000007b0| 65 72 2d 74 29 3b 22 20 | 66 70 73 22 2c 66 72 65 |er-t);" |fps",fre|
|000007c0| 20 3a 20 74 20 3d 20 74 | 69 6d 65 72 20 3a 20 6e | : t = t|imer : n|
|000007d0| 30 20 3d 20 6e 0d 36 31 | 30 20 72 65 74 75 72 6e |0 = n.61|0 return|
|000007e0| 0d 36 32 30 20 65 6e 64 | 0d 00 00 00 00 00 00 00 |.620 end|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000810| 8b 42 ed f4 92 f4 40 69 | f4 e6 e7 a3 e4 84 9c 40 |.B....@i|.......@|
|00000820| 90 d7 f5 84 8d a7 40 4e | c0 40 a1 f5 e9 e9 9b e9 |......@N|.@......|
|00000830| 09 62 6f 78 65 73 2e 62 | 61 73 02 00 00 00 50 61 |.boxes.b|as....Pa|
|00000840| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 02 |rtSIT!..|........|
|00000850| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 ae 78 1a e8 00 00 | 00 00 00 00 01 1e 42 95 |...x....|......B.|
|00000880| b1 40 b0 40 56 40 9d 00 | 00 00 b9 8d b2 46 e7 91 |.@.@V@..|.....F..|
|00000890| 91 95 40 ac 42 c5 7d 67 | e2 97 92 43 09 f7 f7 c4 |..@.B.}g|...C....|
|000008a0| b0 f5 e4 40 99 f8 f4 f9 | f9 40 4c 40 52 40 60 f3 |...@....|.@L@R@`.|
|000008b0| f7 f8 f7 f8 f8 f7 f8 41 | 14 40 a9 f7 7f 71 f7 43 |.......A|.@...q.C|
|000008c0| ab f1 7f ba c2 7e d7 e5 | d2 f1 42 10 7e 52 7f a9 |.....~..|..B.~R..|
|000008d0| 41 d1 f3 7f 9e f3 42 a1 | 40 70 9f 40 b6 41 62 40 |A.....B.|@p.@.Ab@|
|000008e0| f5 f9 ec e9 7f a6 40 dc | fd 88 a4 41 fd 7f 6f 40 |......@.|...A..o@|
|000008f0| c9 41 49 86 86 a3 86 40 | ab b2 9f 40 5c 8a a5 8e |.AI....@|...@\...|
|00000900| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000910| 01 2b ce 84 18 fa 00 00 | 00 1c 00 1e ff ff 00 00 |.+......|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+